home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 1 of 3).zip / Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 1 of 3).adf / InSeenot... / InSeenot...amosSourceCode < prev    next >
AMOS Source Code  |  1993-06-27  |  3KB  |  136 lines
  1. Screen Open 0,640,512,16,Hires
  2. Colour 1,$0
  3. Open In 1,"Flag"
  4. Input #1,FLAG
  5. Close 1
  6. Dir$="daten/"
  7. Curs Off 
  8. Change Mouse 2
  9. LEBEN=9
  10. TXT$="1"
  11. Hide On 
  12. MIDD=1
  13. TITEL
  14. Unpack 8 To 0
  15. Print "Alten Spielstand laden? (J/N)"
  16. Do 
  17.    A$=Inkey$
  18.    A$=Upper$(A$)
  19.    If A$="J" Then Goto SAFEDGAME
  20.    If A$="N" Then Goto AUFBAU
  21. Loop 
  22. AUFBAU:
  23. Screen Open 0,640,512,16,Hires
  24. Load Iff "screen",0
  25. Reserve Zone 30
  26. Rem Get Sprite Palette 
  27. Flash Off 
  28. Colour 1,$0
  29. NR=1
  30. B=1
  31. X=0
  32. For I=1 To 10
  33.    Paste Bob X,235,NR
  34.    Set Zone B,X,235 To X+35,270
  35.    X=X+35
  36.    NR=NR+1
  37.    B=B+1
  38. Next I
  39. Paste Bob X+35,235,23
  40. Set Zone B,X+35,235 To X+35+35,270
  41. For I=1 To 3
  42.    X=X+35
  43. Next I
  44. P=X
  45. Paste Bob X,200,15
  46. X=X+35
  47. Paste Bob X,200,24
  48. X=X+35
  49. Paste Bob X,200,30
  50. X=X+35
  51. Paste Bob X,200,15
  52. X=X+35
  53. Paste Bob X,200,28
  54. Set Zone B+1,P,200 To X+35,235
  55. Paste Bob X-35*3,235,15
  56. Paste Bob X-35*2,235,24
  57. Paste Bob X-35,235,14
  58. Paste Bob X,235,15
  59. Set Zone B+2,P,235 To X+35,270
  60. Limit Mouse 135,249 To 440,300
  61. Show 
  62. L=35*6
  63. M=35*3
  64. Gosub LADEN
  65. SCHLEIFE:
  66. Do 
  67.    C=Mouse Click
  68.    If C<>0
  69.       VM=Mouse Zone
  70.       V=VM-1
  71.       Goto VARIABEL
  72.    End If 
  73. Loop 
  74. LADEN:
  75. Open In 1,TXT$
  76. Input #1,A
  77. Input #1,A$
  78. Close 1
  79. Print At(0,28);"Weiter bei >:      "
  80. LEBEN=LEBEN+A
  81. If LEBEN<0 Then LEBEN=0
  82. If LEBEN>12 Then LEBEN=12
  83. Locate 0,10
  84. Print A$
  85. Print At(0,27);"St�rkepunkte:                                "
  86. Print At(0,27);"St�rkepunkte:";LEBEN
  87. TXT$=""
  88. Return 
  89. VARIABEL:
  90. E=E+1
  91. If VM=12 Then E=0 : Goto XYZ
  92. If VM=13 Then Goto SPEICHERN
  93. If VM=0 Then E=0 : Goto SCHLEIFE
  94. If VM=11 and MIDD=1 Then Music Stop : MIDD=0 : E=E-1 : Goto SCHLEIFE
  95. If VM=11 and MIDD=0 Then Music 1 : MIDD=1 : E=E-1 : Goto SCHLEIFE
  96. If V=0 and E=1 Then E=0 : Goto SCHLEIFE
  97. If E=4 Then TXT$="" : E=1 : Print At(0,28);"Weiter bei >:      "
  98. VAR$=Str$(V)
  99. TXT$=TXT$+VAR$-" "
  100. WAR=Val(TXT$)
  101. If WAR>FLAG Then TXT$="" : E=0 : Print At(0,28);"Weiter bei >:     " : Goto SCHLEIFE
  102. Print At(0,28);"Weiter bei >:";TXT$
  103. Goto SCHLEIFE
  104. XYZ:
  105. Locate 0,10
  106. A$="                                                                                                                                                                                                                                                     "
  107. Print A$+A$+A$+A$+A$
  108. If LEBEN=0 Then TXT$="445"
  109. Gosub LADEN
  110. Goto SCHLEIFE
  111. SPEICHERN:
  112. Open Out 1,"0"
  113. Print #1,LEBEN
  114. Print #1,A$
  115. Close 1
  116. End 
  117. SAFEDGAME:
  118. TXT$="0"
  119. LEBEN=0
  120. Goto AUFBAU
  121. Procedure TITEL
  122. Unpack 9 To 0
  123. Set Text 0
  124. Ink 3,0
  125. Text 0,239,"Titelgrafik - PD                                 Titelmusik - Stratego"
  126. Music 1
  127. Wait Key 
  128. Set Text 4
  129. Ink 2,0
  130. Text 0,229,"Das Programm  ist Freeware. Ver�nderte Prg.Versionen erst an den Autor senden!"
  131. Set Text 0
  132. Ink 3,0
  133. Text 0,239,"Fontlayout - PD            Hand of Fear (Scanner Pic) - Pushead (Septic Death)"
  134. Text 0,249,"Betatester : Axel Pellmann - Sebastian R�pke - M.Geithe                       "
  135. Wait Key 
  136. End Proc